home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / HUNCHY.ZIP / CODE.PAS < prev    next >
Pascal/Delphi Source File  |  1980-01-01  |  491b  |  23 lines
  1. const
  2.   DePlace = 128;
  3. var
  4.   InFil,OutFil : text;
  5.   Str : string [255];
  6.   Ctr : byte;
  7. begin
  8.   Writeln ('MESSAGE CODER by Robert Schmidt');
  9.   Assign (InFil,'SECRET.TXT');
  10.   Assign (OutFil,'SECRET.COD');
  11.   Reset (InFil); ReWrite (OutFil);
  12.   repeat
  13.     Readln (InFil,Str);
  14.     Writeln (Str);
  15.     for Ctr:=1 to Length(Str) do
  16.       Inc (Str[Ctr],DePlace);
  17.     Writeln (OutFil,Str);
  18.     Writeln (Str);
  19.     Writeln;
  20.   until Eof(InFil);
  21.   Close (InFil); Close (OutFil);
  22. end.
  23.